From afa721bf351ebaeec74621f8eabc337c7e068883 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 May 1993 17:03:51 +0000 Subject: [PATCH] (comint-filter): Restore buffer-read-only in proper buffer. --- lisp/comint.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 0d49cba5590..bb20f2ab578 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -651,13 +651,11 @@ Similarly for Soar, Scheme, etc." ;; when output is inserted. (defun comint-filter (process string) (let ((obuf (current-buffer)) - ordonly opoint obeg oend) (set-buffer (process-buffer process)) (setq opoint (point)) (setq obeg (point-min)) (setq oend (point-max)) - (setq ordonly buffer-read-only) (let ((buffer-read-only nil) (nchars (length string))) (widen) @@ -677,12 +675,11 @@ Similarly for Soar, Scheme, etc." (set-marker comint-last-input-end (- comint-last-input-end nchars))) (set-marker (process-mark process) (point) nil) - (force-mode-line-update) + (force-mode-line-update)) - (narrow-to-region obeg oend) - (setq buffer-read-only ordonly) - (goto-char opoint) - (set-buffer obuf)))) + (narrow-to-region obeg oend) + (goto-char opoint) + (set-buffer obuf))) (defun comint-get-old-input-default () "Default for comint-get-old-input. -- 2.30.2